home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1306 / ptw32.zip / APPC.PSL next >
Text File  |  1996-11-19  |  893b  |  33 lines
  1. #
  2. # Opens an AS/400 connection (Via APPC).
  3. #
  4. # Parameters : $p1 - AS/400 system name.
  5. #                     $p2 - device name.
  6. #
  7.  
  8. ShowMessage = 0
  9. if {$pc < 2} {ShowMessage = 1} elseif {$p1 == "System-Name"} {ShowMessage = 1}
  10.  
  11. if {$ShowMessage == 1} {
  12.  line1 = "You are now executing the script APPC.PSL.\n"
  13.  line2 = "This script requires an AS/400 system name as the\n"
  14.  line3 = "first parameter and a device name as the second parameter.\n"
  15.  line4 = "Please modify your command line or shortcut\n"
  16.  line5 = "by replacing the script parameter System-Name\n"
  17.  line6 = "with the AS/400 system name you would like to connect to.\n"
  18.  line7 = "\n"
  19.  line8 = "Example: PTW32.EXE APPC.PSL HOSTA DEVICEA"
  20.  message "$line1$line2$line3$line4$line5$line6$line7$line8"
  21.  return
  22. }
  23.  
  24. set comm-type appc
  25. set system-name $p1
  26. set device-name $p2
  27.  
  28. session open
  29. set session-name $p2
  30. run keys.psl
  31.  
  32.  
  33.